home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / ABZmonPPC 0.9 / test_deb_ƒ / test_deb_2.s < prev    next >
Encoding:
Text File  |  1995-08-14  |  1.7 KB  |  106 lines  |  [TEXT/MPS ]
  1. ##################################################
  2.  
  3.     INCLUDE    'macro.set'
  4.  
  5. qd_sz        equ    206
  6.  
  7. ##################################################
  8.  
  9.     string    ASIS
  10.  
  11.     export    Entry_Point[DS]
  12.     export    .Entry_Point[PR]
  13.  
  14. ##################################################
  15.  
  16.     csect    .Entry_Point[PR]
  17.  
  18.     mflr    r0
  19.     stw    r0,8(sp)            # save link register
  20.     addi    sp,sp,-19*4-CALL_STK_SZ
  21.     stmw    r13,CALL_STK_SZ(sp)        # save non-volatile
  22.  
  23.     lwz       r3,qd[TC](rtoc)
  24.     addic    r3,r3,qd_sz-4
  25.  
  26.     MAC_OS    InitGraf
  27.     MAC_OS    InitFonts
  28.     MAC_OS    InitWindows
  29.     MAC_OS    InitMenus
  30.     MAC_OS    TEInit
  31.     li    r3,0
  32.     MAC_OS    InitDialogs
  33.     MAC_OS    InitCursor
  34.  
  35.  
  36.    _Debugger
  37.     li    r5,5
  38.     li    r4,0
  39.  
  40. test_n:    li    r3,$3
  41.     mtctr    r3
  42.  
  43. test_num:    li    r3,7            # count
  44.     stwu    r3,-4(sp)
  45.     li    r3,6            # DebugNum no.
  46.     stwu    r3,-4(sp)
  47.     lwz    r3,test_str[TC](rtoc)    # the string to show
  48.     stwu    r3,-4(sp)
  49.     nop
  50.     nop
  51.     addi    r4,r4,1
  52.     _DebugNum
  53.  
  54.     nop
  55.     nop
  56.  
  57.     bdnz    test_num
  58.  
  59.    _Debugger
  60.     subic.    r5,r5,1
  61.     bne    test_n
  62.  
  63.     _Debugger
  64.     li    r3,30
  65.     MAC_OS    SysBeep
  66.  
  67.    _Debugger
  68.  
  69. bye:    lmw    r13,CALL_STK_SZ(sp)        # restore non-volatile
  70.     addi    sp,sp,19*4+CALL_STK_SZ    # clean stack
  71.     lwz    r0,8(sp)
  72.     mtlr    r0            # restore LR
  73.     li    r3,0            # result
  74.     blr                # return via the link register
  75.  
  76. ##################################################
  77.  
  78.     tc    qd[TC],qd[RW]
  79.     csect    qd[RW]
  80.  
  81.     ds.b    qd_sz            # QuickDraw storage
  82.  
  83. ##################################################
  84.  
  85.     tc    test_str[TC],test_str_[RO]
  86.     csect    test_str_[RO]
  87.  
  88.     string    Pstring
  89.  
  90.     dc.b    'test_str'
  91.  
  92.     align    3
  93.  
  94. ##################################################
  95. ##################################################
  96.  
  97.     tc    Entry_Point[TC],Entry_Point[DS]
  98.     csect    Entry_Point[DS]
  99.  
  100.     dc.l    .Entry_Point[PR]
  101.     dc.l    TOC[TC0]
  102.     dc.l    0
  103.  
  104. ##################################################
  105.  
  106.     END